10 POKE56,56:CLR:POKE53371,0
20 POKE53281,0:POKE53280,0
30 DV=PEEK(186):IFDV<8THENDV=8
40 SYS57812"PS6",DV,0:POKE780,0:POKE781,0:POKE782,70:SYS65493
50 SYS57812"FIGHT FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
60 SYS57812"WNDIPCM",DV,0:POKE780,0:POKE781,0:POKE782,148:SYS65493
62 SYS39168,148*256,128*256,8*256
70 SYS57812"SID.OBJ.64",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
80 UP=148*256:DN=UP+3:CL=UP+15
90 DIMW$(60)
107 :
108 :REM SPRITES
109 :
110 V=53248:FORI=960TO1022:POKEI,255:NEXT
120 FORI=2040TO2043:POKEI,15:NEXT
130 FORI=0TO3:POKEV+39+I,15:NEXT
140 POKEV+16,0:POKEV+29,15:POKEV+23,15:POKEV+28,0:POKEV+27,15
150 POKEV,134:POKEV+1,60:POKEV+2,178:POKEV+3,60
160 POKEV+4,134:POKEV+5,84:POKEV+6,178:POKEV+7,84
167 :
168 :REM MORE SETUP
169 :
170 AD=144*256
180 IP=38656
220 FORI=0TO7:READF$(I),G$(I):NEXT
230 DATA"AUBURN","[193][213][194][213][210][206]
240 [131]"LOUISIANA","(null)(null)(null)RIGHT$(null)RIGHT$ATN(null)ATN
250 DATA"TENNESSEE","[212][197][206][206][197][211][211][197][197]
260 [131]"FLORIDA","ASC(null)(null)(null)RIGHT$STR$ATN
270 DATA"GEORGIA","[199][197][207][210][199][201][193]
280 [131]"KENTUCKY","(null)VAL(null)(null)(null)LEN(null)(null)
290 DATA"MISSISSIPPI","[205][201][211][211][201][211][211][201][208][208][201] [211][212].
300 [131]"ARKANSAS","ATN(null)(null)ATN(null)(null)ATN(null)
310 POKE53272,31
317 :
318 :REM SCREEN
319 :
320 PRINT"[147]   [153][196]AVE [205]ARQUIS'  [213] [206] [201] [214] [197] [210] [211] [201] [212] [217]"
330 PRINT"             [156][176][192][192][192][192][192][192][192][192][192][192][192][174]"
340 PRINT"[176][192][174]          [156][221][144]3456789:;<=[146][156][221]           [176][192][174]";
350 PRINT"[171][179] [178]         [156][221][144]>?[192][193][194][195][196][197][198][199][200][146][156][221]        [176][192][174][173][192][174]";
360 PRINT"[177]  [221][176][192][174]      [156][221][144][201][202][203][204][205][206][207][208][209][210][211][146][156][221]     [176][174][176][221][176][174][173][192][189]";
370 PRINT"   [177][221][176][174][174] [176]   [156][221][144][212][213][214][215][216][217][218][219][220][221][255][146][156][221]   [176][174][221][221][221][173][192][189]
380 [153]"    /TANEXP-TAN<OR=^CLR(null)STOP(null)CLOSEGETNEWTAB(TOFNSPC(THENNOTSTEPWAITCLR(null)ORTAN^(null)(null)EXP/EXP
390 PRINT"       [189] [173] [221] [156][221][144][170][171][172][173][174][175][176][177][178][179][180][146][156][221][173][192][174][173][189]
400 [153]"           > CLR(null)STOPINTABSUSRFREPOSSQRRNDLOGEXPCOSSINWAITCLR(null)/TANEXP
410 PRINT"             [156][171][192][192][192][192][192][192][192][192][192][192][192][179]"
420 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
430 PRINT"[221]                                      [221]";
440 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
450 FORI=0TO9:PRINT"[221]                                      [221]";:NEXT
460 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
470 PRINT"   [195][210][211][210] [213][208][154]/[196][207][215][206]    [210][197][212][213][210][206]   [209][154] - [209][213][201][212]"
480 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
500 POKE214,10:PRINT
510 PRINTTAB(10)"[158][211][207][213][212][200][197][193][211][212] [195][207][206][198][197][210][197][206][195][197][152]"
520 POKE214,13:PRINT
530 FORI=0TO7
540 PRINTTAB(15)G$(I)
550 NEXT
560 J=0
570 POKE198,0:TI$="000000"
580 POKE214,13+J:PRINT:PRINTTAB(15)""G$(J)
587 :
588 :REM MENU
589 :
590 IFTI$<"000001"THEN620
600 K=K+1:IFK>6THENK=0
610 SYS39168,70*256+3*K*256,15768,77*8:TI$="000000":POKEV+21,15
620 GETA$:IFA$=""THEN590
630 IFA$="Q"THENSYS49935:POKEV+21,0:PRINT"[147]":GOTO40000
640 IFA$=CHR$(13)THEN690
650 POKE214,13+J:PRINT:PRINTTAB(15)"[152]"G$(J)
660 IFA$=""THENJ=J+1:IFJ>7THENJ=0
670 IFA$="[145]"THENJ=J-1:IFJ<0THENJ=7
680 GOTO580
687 :
688 :REM LOAD MUSIC & TEXT
689 :
690 POKEV+21,0
692 SYS39168,128*256,148*256,8*256
694 FT$=F$(J)+".TXT":SYSIP,FT$,DV
700 NL=PEEK(252)*256+PEEK(251)
710 POKE214,23:PRINT:PRINT"  [195][210][211][210] [213][208][154]/[196][207][215][206]  [211][208][193][195][197] [154]- [206]EXT  [205] [154]- [205]ENU"
720 SYS57812F$(J)+".MUS",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
740 SYS49615:POKE49152,0
750 POKE781,0:POKE782,64:SYS49664:POKE49152,7
760 SYSCL,1,13,38,10,0
770 SYSCL,1,11,38,1,0
780 POKE214,10:PRINT"[158]":PRINTTAB(20-LEN(W$(1))/2)W$(1)
790 POKE214,12:PRINT
800 FORI=3TO12:PRINT"[155]"W$(I):NEXT
807 :
808 :REM SECOND LOOP
809 :
810 POKE198,0:H=12
820 IFTI$<"000001"THEN850
822 IFPEEK(49152)=7THEN830
824 SYS49897:SYS49935
826 J=J+1:IFJ>7THEN320
828 GOTO690
830 K=K+1:IFK>6THENK=0
840 SYS39168,70*256+K*3*256,15768,77*8  :TI$="000000":POKEV+21,15
850 GETA$:IFA$=""THEN820
852 IFA$<>" "THEN860
854 POKE49152,0:SYS49897:SYS49935
856 J=J+1:IFJ>7THEN320
858 GOTO690
860 IFA$="M"THENPOKE49152,0:SYS49897:SYS49935:GOTO320
870 IFA$<>""THEN920
880 H=H+1:IFH>=NLTHENH=H-1:GOTO850
890 SYSUP,1,13,38,10,0
900 POKE214,21:PRINT:PRINT""W$(H)
910 GOTO850
920 IFA$<>"[145]"THEN850
930 H=H-1:IFH<12THENH=H+1:GOTO850
940 SYSDN,1,13,38,10,0
950 POKE214,12:PRINT:PRINT""W$(H-9)
960 GOTO850
10000 D=PEEK(186):N$="0:B.FIGHT SONGS":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END